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is received character 
character into silo buffer 
a character from the input silo 

registers for TT input interrupt 
evel input character processing 

►s received XOFF character 

is received XON character 
line transmitter 

(xt char for device driver 
driven output character processing 
driven input character processing 
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TSTIOX — Relocatable 



04 



2 000000 



3 

4 

5 

6 

7 

8 

9 

10 

H 

12 

13 

14 

15 

16 

17 

18 

19 

20 



23 
24 
25 
26 
27 
28 
29 
30 
31 



day 18- 


-Dec -87 


TITLE 


TSTIOX 


PSECT 


TSTIOX 


ENABL 


LC 


DSABL 


GBL 
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Relocatable terminal service code 



TSTIOX contains the portion of the terminal service code that 
is linked as an overlay and relocated over TSINIT when the 
system is started. 

Copyright (c) 1984, 19B5. 
S8<H Computer Systems, Inc. 
Nashville, Tennessee USA 

Global definitions 

. GLOBL TSTIOX 

Global references 

.GLOBL OVRHC, CLfLIX, LCXTBL 

. GLOBL NEDCDO, NEDCDI, LCLUNT, LINIR, LCDTYP, CTRLS, LOTSIZ, LOTBUF 

. GLOBL CTRLQ. CDX*VH, LMSGBF, LOTPNT, CDSXOF, CDBXON, CLTIMR, LXCL 

. GLOBL LNMAP, OTRASZ, CDOFLG, LHIRBS, LHIRBE, LHIRBB, INTPRI, LHIRBP 

. GLOBL INITFL, LHIRBC, LHIRBG, LHIRBA, *DETCH, CO*eBT, «HARD, *CTRLS 

. GLOBL CDX*DH, FRMERR, *1NIT, fSXON, LSW, LSW7, S*OTWT 

. GLOBL *IITIM, *SX0FF,LSW5, *SBIT, LITIME, S**RUN. «DHCDO> LSW3 

. GLOBL LOTEND, SB«LNK, «SOTFN, NMUMB, *PAGE, DHTIMR, S*OTLO, LSTHL 

. GLOBL S*OTFN, *NDICP.. INTEN, FP*CDI, MBFFLG, FORK, *RBRK, CDIFLG 

. GLOBL LSW2, SNMSHD, CL*OPT, NEDSOT, *ICPFK, *DEAD, NEDCLO, SB*PNT 

. GLOBL LNPRIM, LSWIO, CDSTRT, *HISTP, LSTATE, FASTIN, CDSTOP 

. GLOBL CO*BNO, CO*BNI , LOTSPC, *DNICP, PSW, KPAR6, LTTPAR 

. GLOBL LINNUM. RDINT, RSR, RCVDON, RBR, MUXNUH, MXRBUF, MXLNT 



( 



TSTIOX 
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4 
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8 
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10 
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12 
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21 
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23 
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27 

28 

29 

30 

31 

32 

33 

34 

35 
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44 

45 
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47 

48 
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50 
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Macro definitions: 

Disable interrupts 

. MACRO DISABL 
BIS #340, e#psw 
. ENDM DISABL 

Enable interrupts 

. MACRO ENABL 

BIC @#INTPRI,@#PSW 

. ENDM ENABL 



^Disable interrupts 



; Enable interrupts 



Call a routine in a system overlay 



. MACRO OCALL 



ENTADD 



. IF B, ENTADD 

.ERROR ; OCALL without entry address 



. ENDC 




CALL 


©#OVRHC 


. WORD 


ENTADD 


. ENDM 


OCALL 



The TTMAP and TTMAPX macros are used to map kernel-mode par6 to the 

terminal character buffer area. The previous contents of par6 map 

register are pushed on the stack and may be restored by using the 

UNMAP or UNMAPX macros. 

Rl must contain the line index number of the line whose buffers 

are- being accessed. 

The difference between the TTMAP-UNMAP macros and the TTMAPX-UNMAPX 

macros is that the X-versions are more efficient but may only be 

used from within interrupt service routines where we are guaranteed 

to be running on the system stack. 

The TTMAP and UNMAP versions of the macros must only be 

used in sections of code where the interrupts are disabled. 

. MACRO TTMAPX 

MOV LTTPAR<R1),@«KPAR6 

. ENDM TTMAPX 



. MACRO UNMAPX 

. ENDM UNMAPX 

. MACRO TTMAP 

MOV e#KPAR6, MAPHLD 

MOV LTTP AR < R 1 > , €'#KPAR6 

. ENDM TTMAP 



. MACRO 
MOV 
. ENDM 



UNMAP 

MAPHLD, @#KPAR6 

UNMAP 
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BTIDX - 


•- Relocatable 


1 

2 
3 






4 






5 






6 


000000 


077167 


7 






8 






9 






10 


000002 


000030 


11 


000004 


000172 


12 


000006 


000602 


13 


000010 


000752 


14 


000012 


001270 


15 


000014 


001346 


16 


000016 


001776 


17 


000020 


002106 


18 


000022 


001752 


19 






20 






21 






22 


000024 


000000 


23 






24 


000026 


000 



Module header. This data must be the first data in this segment 

Overlay segment ID word 

TSTIOX: . RAD50 /TIO/ 

Table of offsets to entry points in this module 

.WORD ININT-TSTIOX 

. WORD TTINPT-TSTIDX 

. WORD SILFET-TSTIOX 

. WORD TTRSAV-TSTIOX 

. WORD TRNSTR -TSTIOX 

. WORD NEDCHR-TSTIOX 

. WORD CDORTN-TSTIOX 

. WORD CDIRTN-TSTIOX 

. WORD SNDFRE-TSTIOX 



i Data 


areas 




MAPHLD: 


. WORD 





TTIFRK: 


. BYTE 

. EVEN 






; Used by TTMAP macro 

; Non-zero ==> Request fork level input process 



I 

€ 
I 
< 
( 
I 
< 
I 

i 
t 
€ 

i 

i 

€ 
i 
€ 

i 

i 
i 
t 
< 
i 



( 



TSTIOX - 
ININT ~ 

i 
2 
3 
4 
5 
6 
7 
8 
9 



- Relocatable terminal MACRO V05. 04 Friday lS-Dec-87 11:58 Page 4 
Terminal input interrupt entry point 



( 



000030 



10 000030 

11 

12 

13 

14 

15 000034 

16 000040 
17 

18 
19 

20 000042 

21 000046 

22 000050 

23 000056 

24 000064 

25 000066 

26 000072 

27 000100 

28 000104 

29 000106 

30 000114 
31 

32 
33 

34 000116 

35 000120 

36 000124 

37 000130 

38 000132 

39 000136 

40 000140 

41 000142 

42 000146 

43 000150 

44 000154 

45 000156 

46 000160 

47 000164 

48 000166 
49 

50 
51 
52 



1 1 3704 
001426 



105037 
006304 
042774 
032774 
001410 
017405 
052774 
004767 
000431 
052774 
000425 



010346 
1 1 3703 
105037 
006303 
017305 
002013 
010504 
042704 
000304 
066304 
111404 
001765 
004767 
000762 
012603 



000170 000207 



SBTTL ININT 



Terminal input interrupt entry point 



Receiver interrupt routine - enter with interrupts disabled 
ININT: 
i Save registers RO* Rl* R4, and R5. 



004567 000716 



JSR 



R5, TTRSAV 



i Save registers 



RO* Rl, R4 and R5 are now available. 
Determine uihich line interrupted. 



OOOOOOG 



MOVE @#LINNUM, R4 
BEQ 1« 



; Get interrupting line number 
; Branch if mux line interrupted 



Interrupt came from a DLll line 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
000066 



OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG OOOOOOG 3*: 



CLRB 


@#LINNUM 


ASL 


R4 


BIC 


#RDINT, @RSR<R4) 


BIT 


#RCVDON, eRSR<R4) 


BEQ 


3* 


MOV 


@RBR<R4),R5 


BIS 


#RDINT, eRSR(R4) 


CALL 


TTINPT 


BR 


9* 


BIS 


#RDINT,eRSR<R4) 


BR 


9* 



Reset line number cell 

Get TSX line number index 

Drop DLll interrupt enable 

Did uje receive a character? 

Branch if not 

Get receiver buffer register info 

Reenable DLll interrupt 

Process the character 

Finished 

Reenable DLll interrupts 



Interrupt came from a D211 or DHll line 



OOOOOOG 
OOOOOOG 

OOOOOOG 



170377 
OOOOOOG 

000006 



1*: 



2*: 



4*: 



9*; 





MOV 


R3, -(SP) 




Get anot 




MOVE 


@#MUXNUM, 


R3 


Get MUX 




CLRB 


@#MUXNUM 




Reset ce 




ASL 


R3 




Convert 




MOV 


@MXRBUF(R3>,R5 


Get MUX 




BGE 


4* 




Br i f mu 




MOV 


R5, R4 




Get rece 




BIC 


#'^C<7400:; 


, R4 


Clear al 




SWAB 


R4 




Move to 




ADD 


MXLNT<R3) 


, R4 


Get poin 




MOVB 


(R4),R4 




Get TSX 




BEQ 


2* 




Br if li 




CALL 


TTINPT 




Process 




BR 


2* 




Go see i 




MOV 


(SP)+, R3 






Fini 


shed 










RETURN 




1 


Return f 



;her work register for mux 

number 
■11 

to word table index 

receiver buffer register 
IX silo is empty 
liver buffer info 

1 but line # 

low order byte 
iter into map table 

line # 
me not genned into TSX 

the received character 
,f more chars in mux silo 



TSTIOX 
TTINPT 
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— Process recpived character 



1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SDTTL TTINPT 



Process received character 



TTINPT is called each time a character is received from a serial line. 

This routine stores the character into the initial ring buffer for the line 

and then requests a . FORK to trigger the actual input character processing. 

Inputs: 
R4 = Index number of interrupting line. 
R5 = Received character and status flags in DLll format. 



000172 010046 
000174 010346 



000176 042764 0000000 OOOOOOG 



000204 032705 OOOOOOG 

000210 001404 

000212 052764 OOOOOOG OOOOOOG 

000220 000456 



TTINPT: MOV 
MOV 



RO, -<SP) 
R3, -<SP) 



Reset input interrupt timer for the line 

13IC #*IITIM, LSW5(R4>/ Reset input interrupt timer for line 

See if a framing error was detected 

BIT #FRMERR, R5 ; Was a framing error detected? 

BEQ 7* ;Br if not 

BIS #*RBRK, LSW10(R4);Set flag saying break was detected 

BR 2* jSkip over special character tests 

See if we should mask character to 7 bits 



7$: 



000222 042705 177400 

000226 016403 OOOOOOG 

000232 002411 

000234 032763 OOOOOOG OOOOOOG 

000242 001045 

000244 032763 OOOOOOG OOOOOOG 

000252 001007 

000254 000404 

000256 032764 OOOOOOG OOOOOOG 6*: 

000264 001002 

000266 042705 177600 4*: 



BIC #-"^0377. R 5 iMask character to 8 bits 

MOV LCLUNT(R4), R3 ; Is this line being used by CL? 

BLT 6* J Br if not 

BIT #C0*BNI,CL*0PT(R3); Binary input mode? 

BNE 2* i Br if yes — Accept all characters 

BIT #C0*SBT, CL*0PT<R3)i Is CL unit set for 8 bit support? 

BNE 3* i Br if 8 bit mode 

BR 4* 

BIT #*8BIT, LSW2(R4) ;Is line set to receive 8-bit chars? 

BNE 3* ;Br if yes 

BIC #"^0177, R5 J Mask out all but 7 bits of character 



Ignore nulls unless this is a CL line in binary input mode 



000272 105705 
000274 001466 



3$: 



TSTB 
BEQ 



R5 
9* 



i Is the character null? 

> Ignore nulls unless in binary input mode 



See if character is ctrl-S (XOFF) 



000276 120527 OOOOOOG 

000302 001011 

000304 005703 

000306 002004 

000310 032764 OOOOOOG OOOOOOG 

000316 001417 

000320 004767 000670 10*: 

000324 000452 



CMPB 


R5, #CTRLS 


BNE 


1* 


TST 


R3 


BGE 


10* 


BIT 


#*PAGE, LSW2<R4) 


BEQ 


2* 


CALL 


GOTXDF 


BR 


9* 



Is character ctrl-ST* 

Br if not 

Is line being used by CL? 

Br if yes 

Is ctrl-S processing wanted for line? 

Br if not — treat ctrl-S like normal char 

Process the ctri-S character 

Finished with character 



000326 120527 OOOOOOG 



See if character is ctrl-Q (XON) 
1*: CMPB R5i #C TRLQ ; Is character ctrl -Q? 
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TTINPT — Process received character 



58 000332 

59 000334 

60 000336 

61 000340 

62 000346 

63 000350 

64 000354 
65 

66 

67 

68 000356 

69 

70 

71 

72 000362 

73 000370 

74 000372 

75 000400 

76 000404 

77 000410 

78 000412 

79 000420 

80 000422 

81 000430 

82 000432 
S3 000436 

84 000440 

85 000446 
86 

87 

89 000452 

90 000454 

91 000456 



001011 
005703 
002004 
032764 
001403 
004767 
000436 



032764 
001030 
052764 
005237 
005727 
001020 
032764 
001014 
032764 
001010 
105737 
001005 
052764 
105267 



012603 
012600 
000207 



OOOOOOG OOOOOOG 
000666 



11*: 
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BNE 2* iBr if not 

TST R3 ; Is line being used by CL7' 

BGE 11* ;Br if yes 

BIT #*PAGE, LSW2<R4> i Is ctrl-Q processing wanted for line? 

BEQ 2* iBr if not — treat ctrl-Q like normal char 

CALL GOTXDN i Process the ctrl-Q character 

BR 9* 



004767 000076 



Move character into silo buffer for this line 
2*: CALL IRINOP ; Store character into silo buffer 

Set flag requesting fork-level processing for this line 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
177354 



OOOOOOG 
OOOOOOG 

OOOOOOG 



BIT 

BNE 

BIS 

INC 

TST 

BNE 

BIT 

BNE 

BIT 

BNE 

TSTB 

BNE 

BIS 

INCB 

Finished 



9*: 



MOV 
MOV 
RETURN 



#*NDICP* LSW10(R4)} Have me already requested input processing? 

9* ; Br if yes 

#*NDICP. LSW10<R4)i Set flag saying input char processing needed 

@#NEDCDI ; Say input character processing needed 

#FASTIN i Are we to allow non-clock driven forks? 

9* J Br if not 

#*DNICP* LSW10<R4); Have uie already done a fork this clock cycle 

9* > Br if yes — Only do fork once per clock cycl 

#*ICPFK* LSW10<R4); Is fork processing already pending for line? 

9* ; Br if yes 

S#INITFL i Is system initialization complete?" 

9* J Br if not — Don't fork till init complete 

#*DNICP* LSW10(R4); Set flag saying we forked during cycle 

TTIFRK i Request fork processing 



<SP)+, R3 
(SP)+, RO 



TSTIOX - 
IRINGP 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



- Relocatable terminal 

- Store character into 
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5ilo buffer 



Friday lS~Dec-S7 11:58 Page 6 



( 



000460 
000462 



000464 
000470 
000472 
000476 
000500 
000504 
000506 
000512 
000516 



000530 
000532 
000534 
000542 
000544 
000550 
000552 
000560 
000562 
000564 
000570 



000574 
000576 
000600 



010146 
010346 



005764 
001425 
016403 
110523 
020364 
103402 
016403 
010364 
005364 



126464 
101021 
001404 
032764 
001014 
016403 
002404 
032763 
001005 
010401 
016103 
004773 



012603 
012601 
000207 



. SBTTL IRINGP 



Store character into silo buffer 



IRINGP is called to store a received character into the input 
silo buffer for a line. 



Inputs: 
R4 ™ Line index number. 
R5 = Character to be stored. 



IRINGP: MOV 
MOV 



R 1 , - ( SP ) 
R3, -<SP) 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 

000001 OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



1$: 



TST 


LHIRBS(R4) 


BEQ 


2* 


MOV 


LHIRBP<R4),R3 


MOVB 


R5, <R3) + 


CMP 


R3, LHIRBE<R4> 


BLO 


1« 


MOV 


LHIRBB<R4),R3 


MOV 


R3>LHIRBP<R4) 


DEC 


LHIRBS(R4) 



?*: 



4*: 



Store character into silo buffer 

Any space remaining in ring buffer? 

Br if not 

Get pointer to next pos in ring buffer 

Store char into ring buffer 

Have we gone past the end of the buffer? 

Br if not 

Wrap around to the front of the buffer 

Save pointer for next character 

One less free space available 

If buffer is nearly full* send an XOFF to try to stop transmission 



Br if not 

Aluiays send ctrl-S at set point 

Send ctrl-S on every other char if < set pt 

Br if not time to send ctrl-S 

Is this line a CL unit? 

Br if not 

DiAre we in binary output mode? 

Br if yes — Cannot send XOFF 

Get line index number to Rl 

Get hardware device type index 

Call routine to stuff an XOFF character 



3$: 





CMPB 


LHIRBS(R4),LH 




BHI 


3* 




BEQ 


2* 




BIT 


#1,LHIRBS<R4) 




BNE 


3* 




MOV 


LCLUNT<R4), R3 




BLT 


4* 




BIT 


#CO*BNO, CL*DP 




BNE 


3* 




MOV 


R4, Rl 




MOV 


LCDTYP<R1),R3 




CALL 


@CDSX0F<R3) 


Fini 


shed 






MOV 


(SP)+, R3 




MOV 


(SP)+, Rl 




RETURN 





TSTIOX - 
SILFET - 

1 
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3 

4 

5 

6 

7 

S 

9 
10 
U 
12 

13 000602 

14 000604 
15 

16 
17 

18 000606 

19 000614 
20 



23 
24 

26 
27 



000616 



000624 
000630 

28 000632 

29 000636 

30 000642 
31 

32 
33 
34 

35 000646 

36 000654 

37 000656 

38 000662 

39 000666 

40 000672 

41 000674 

42 000702 

43 000706 
44 

45 
46 

47 000712 

48 000716 

49 000720 

50 000722 

51 000724 

52 000726 

53 000730 

54 000732 

55 000734 
56 

57 



010346 
005046 



026161 
001452 



016103 
112316 
020361 
103402 
016103 
010361 
005261 



032761 
001416 
016103 
166103 
120361 
101007 
042761 
016100 
004770 



016103 
00 1 407 
012300 
001405 
000300 
1 2 1 600 
00 1 373 
000300 
110016 



. SBTTL SILFET — Fetch a character from the input silo 

SILFET is called to fetch the next character from the input silo. 

Inputs: 
Rl ~ Line index number. 

Outputs: 
C-flag cleared ==> A character is available. 
C~flag set ==> No more characters in silo. 
RO = Character gotten from silo. 



SILFET: MOV 
CLR 



R3i -<SP) 
-(SP) 



OOOOOOG OOOOOOG 



;Will restore this into RO 

See if there are any characters in the silo 

CMP LHIRBS<R1). LHIRBA(Rl)i Are there any chars in the silo? 
BEQ 8* ;Brif5ilois empty 

There are characters in the silo. 

Oet the next character out of the silo. 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



1*: 



MOV LHIRB0<R1).R3 

MOVE (R3)+, <SP) 

CMP R3, LHIRBE<R1) 

BLO 1* 

MOV LHIRBB<R1).R3 

MOV R3, LHIRBG<R1) 

INC LHIRBS<R1> 



Get pointer to next character 

Fetch char from silo 

Did u>e go beyond end of silo? 

Br if not 

Wrap around to front of silo 

Save new pointer into silo 

Say there is another free space in silo 



OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 
00000 IG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 



2$: 
4^: 



If we have transmitted an XOFF because the silo was nearly full; 
transmit an XON now if we have nearly emptied the silo. 

BIT #*HISTP,LSW10(Rl>i Have we transmitted an XOFF? 

BEQ 2* ; Br if not 

MOV LHIRBA(R1),R3 i Get total silo size 

SUB LHIRBSfRl )* R3 i Compute # chars in silo now 

CMPB R3, LHIRBC+KRl) ils it time to send XON? 

BHI 2* ; Br if not 

BIC #*HISTP,LSW10<Rl)i Say XOFF has been cancelled 

MOV LCDTYP<R1 ), RO ; Get device type code 

CALL @CDSXON<RO) iCall routine to transmit an XON 

See if we need to translate this character 



Get pointer to translation table 

Br if there is no translation table 

Get next entry from translation table 

Br if hit end of table 

Get external char to low order byte 

Does this match received character? 

Loop if not 

Get internal char to low order byte 

Replace external char with internal char 



MOV 


LCXTBL<R1),R3 


BEO 


3* 


MOV 


<R3)+, RO 


BEO 


3* 


SWAB 


RO 


CMPB 


(SP),RO 


BNE 


4* 


SWAB 


RO 


MOVB 


RO, <SP) 



We got a character 



c 

f 
f 
I 
i 
€ 
I 

€ 

I 

i 
i 
i 

€ 
€ 

i 
i 
i 
i 
i 
i 
i 
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SILFET ~~ Fetch a character from the input silo 

58 ; 

59 000736 000241 3*: CLC ; Signal that uie got a character 

60 000740 000401 BR 9* 

61 i 

62 i There are no characters available 

63 > 

64 000742 000261 8*: SEC ; Signal that no characters are available 

65 ; 

66 ; F i n i s h e d 

67 } 

68 000744 012600 9*: MOV (SP)+, RO 

69 000746 012603 MOV <SP)+, R3 

70 000750 000207 RETURN 



TSTIOX - 
TTF^SAV 



3 
4 
5 
6 
7 

e 

9 
10 
11 
12 



- Relocatable herminal 
Save register 5 for TT 



010046 
010146 
010446 
013746 OOOOOOG 



13 

14 

15 

16 

17 

18 

19 000752 

20 

21 

22 

23 

24 000752 

25 000754 

26 000756 

27 000760 
28 

29 

30 

31 000764 005037 OOOOOOG 

32 

33 

34 

35 000770 004715 

36 

37 

38 

39 

40 000772 012637 0000000 

41 000776 012604 

42 001000 012601 

43 001002 012600 

44 001004 012605 
45 

46 
47 
48 

49 001006 105767 

50 001012 001420 

51 001014 105067 

52 001020 105737 

53 001024 001013 

54 001026 105237 
55 
56 
57 



177014 

177006 
OOOOOOG 

OOOOOOG 
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inputinterrupt 

. SBTTL TTRSAV — Save registers for TT input interrupt 

TfRSAV should be called from all terminal input interrupt reception 
routines. It saves registers R0> Rl/ and R4 and sets up the stack 
so that the RTI instruction that would normally return from the 
interrupt will return to this routine to restore the registers before 
returning from the interrupt. 

This is done to allow us to defer doing a . INTEN until later in the 
character processing. 

Form of call: 

JSR R5, TTRSAV 

I n p u t s : 
Interrupted PC and PSW must be on the top of the stack at the 
time that the JSR is executed. 

TTRSAV: 

On entry* the following items are on the stack: R5, PC* and PSW. 
Push RO* Rl, and R4. 

MOV RO, - < SP ) 

MOV R 1 , - < SP ) 

MOV R4, -(SP) 

MOV @#INTPRI, -(SP) i Save current running interrupt priority 

Say our running interrupt priority is 7 

CLR e#INTPRI ; Say running priority = 7 

Now call calling routine as a coroutine 

CALL (R5) ;Call calling routine as a coroutine 

Finished character input interrupt processing. 
Restore values we pushed. 

MOV (SP)+, e#INTPRI j Restore running interrupt priority 

MOV (SP)+, R4 

MOV (SP)+, Rl 

MOV (SP)+, RO 

MOV (SP)+, R5 

At this point, only the interrupt PC and PSW are left on the stack. 
See if we need to queue a fork request for input character processing. 

; Do we need to queue a fork request? 

; Br if not 

;Clear fork request flag 

; Is character processing already active? 

iBr if yes 

;Say we are doing input processing now 

Do a . INTEN as if we were accepting the interrupt initially 
(The stack is set up as if an interrupt just occurred) 



TSTB 


TTIFRK 


BE(3 


9* 


CLRB 


TTIFRK 


TSTB 


©#CDIFLG 


BNE 


9* 


INCB 


@#CDIFLG 



TSTIOX 
TTRSAV 
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-~ Save reqisters for TT input interrupt 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 



001032 004537 0000000 
001036 000100 



001040 004537 0000000 

001044 0000000 

001046 004767 000004 

001052 000207 



001054 000002 



JSR 
. WORD 



R5, @#INTEN 
100 



; Do Inten 
/Priority = 5 



Nom fork and call TT input processing routine 



JSR 


R5, e#FORK 


. WORD 


FP*CDI 


CALL 


CIPFRK 


RETURN 





Return from interrupt 
9*: RTI 



; Do . FORK 

; Fork priority 

jCall TT input processing routine 

/Return to inten routine which exits from int 



; Return from interrupt 
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CIPFRK — Fork level input character processing 



3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



. SBTTL CIPFRK — Fork level input character processing 
CIPFRK is called at fork level to do input character processing. 



001056 010146 
001060 010446 



001062 012701 000002 



CIPFRK: MOV 
MOV 



R 1 , - < SP ) 
R4, -(SP) 



Begin loop to service each line 

MOV #2, Rl i Start with line 1 

See if this routine needs input character processing 



001066 032761 0000000 OOOOOOG 1*: 

001074 00143D 

001076 

001104 032761 OOOOOOG OOOOOOG 

001112 001423 

001114 032761 OOOOOOG OOOOOOG 

001122 001017 



BIT 


#*HARD, LSW3(Ri) ; 


BEQ 


3$ i 


DISABL 




BIT 


#«NDICP>LSW10<R1) 


BEQ 


2* > 


BIT 


#*ICPFK, LSWIO(RI) 


BNE 


2* i 



Is this a real line? 
Br if not 

»* Disable interrupts *« 

i Does this line need input char processing? 

Br if not 

; Are uje doing processing noui? 

Br if yes 



001124 052761 OOOOOOG OOOOOOG 

001132 

001140 042761 OOOOOOG OOOOOOG 

001146 010104 

001150 004771 OOOOOOG 

00 1154 042761 OOOOOOG OOOOOOG 



001162 

001170 062701 000002 

001174 020127 OOOOOOG 

001200 101732 



00120^ 



105037 OOOOOOG 



This line does need input character processing 

BIS #*ICPFK, LSW10(R1 ); ; ; Set flag saying processing taking place 

ENABL ; ** Enable interrupts «■«■ 

BIC #*NDICP> LSW10(R1 ); Say input character processing has been done 

MOV RliR4 i Get line index number in R4 also 

CALL eLINIR<Rl) iCall input processing routine for line 

BIC #«ICPFK, LSW10(Rl)i Say no longer doing input processing 

See if there are more lines to check 

; *« Enable interrupts »* 
;Get next line index number 
; Have we done all lines? 
; Loop if more to service 

Say fork level input processing is finished 

CLRB @#CDIFLG 'Say input processing finished 

Finished 



2$: 


ENABL 




3*: 


ADD 


#2. Rl 




CMP 


R 1 , #LSTHL 




BLOS 


1« 



001206 012604 
001210 012601 
001212 000207 



MOV 
MOV 
RETURN 



<SP)+, R4 
<SP)+, Rl 






TSTIOX 
GOTXOF 
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Process recpived XOF-F character 



I 
I 



. SBTTL GOTXOF -— Process received XDFF character 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 



GOTXOF is called when we receive an XOFF <ctrl-S) character. 
It suspends transmission. 



Inputs: 
R4 - Line index number. 



001214 010146 
001216 010401 



001220 052761 OOOOOOG OOOOOOG 



001226 016100 OOOOOOG 
001232 004770 OOOOOOG 



001236 012601 
001240 000207 



GOTXOF: MOV 
MOV 



R 1 , - ( SP ) 
R4. Rl 



J Carry line index number in Rl 
Set flag saying transmission is to be suspended 



Bli 



#*CTRLS. LSW3<Rl)i Set flag saying ctrl-S received 



Call device-dependent routine to stop the transmitter 



MOV 
CALL 

Fini shed 



LCDTYP<R1 )> RO i Get comm device type code 
eCDSTOP<RO) i Stop the transmitter 



MOV <SP)+, Rl 
RETURN 



TSTIOX 
GOT X ON 
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— Process received XON character 



1 

2 

3 

4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 



. SBTTL GOTXON — Process received XON character 

GOTXON is called when we receive an XON <ctrl-Q) character. 

Inputs: 
R4 ~ Line index number. 



001242 010146 
001244 010401 



001246 042761 OOOOOOG OOOOOOG 



001254 016100 OOOOOOG 
001260 004770 OOOOOOG 



001264 012601 
001266 000207 



GOTXON: MOV 
MOV 



R 1 , - < SP ) 
R4, Rl 



; Get line index number to Rl 
Clear flag that says output is suspended 

BIC #*CTRLS, LSW3<R1 >; Cancel control-S output suspension 
Call routine to restart output to the line 



MOV 
CALL 

Fini shed 



LCDTYP(R1),R0 i Get device type code 

@CDSTRT<RO) iCall routine to start transmitter 



MOV < SP ) +, R 1 
RETURN 



TSTIDX 
TRNSTR 
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-" Start line transmitter 



I 
I 



1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



SBTTL TRNSTR 



Start line transmitter 



TRNSTR is called each time a character is added to a terminal's 
output buffer to try to start the transmitter for the terminal. 
All registers are preserved. 



Inputs: 
Rl = Virtual line index number 



001270 010046 
001272 010146 
001274 016101 



OOOOOOG 



TRNSTR: MOV 
MOV 
MOV 



RO, -(SP) 
R 1 > - < SP ) 
LNPRIM<Rl),Ri 



001300 032761 OOOOOOG OOOOOOG 
001306 001014 



001310 032761 OOOOOOG OOOOOOG 

001316 001010 

001320 032761 OOOOOOG OOOOOOG 

001326 001404 



001330 016100 OOOOOOG 
001334 004770 OOOOOOG 



001340 012601 
001342 012600 
001344 000207 



J Get primary line index number 

Never try to start output for a detached job 

BIT #*DETCH>LSW<R1) ils this a detached job? 

BNE 9* i Br if yes — No output to detached jobs 

Don't start output if output has been suspended. 

BIT #<*CTRLS!$DEAD>, LSW3<R1 ); Line suspended or dead? 

BNE 9* i Br if yes 

BIT #*HARD, LSW3<R1) ;Is hardware connected to this line? 

BEQ 9« i Br if not 

Line is able to receive a character. 

Call device-dependent routine to start output. 

j Get comm device type index 

iCall routine to start transmitter for line 



9$: 



MOV 


LCDTYP<R1>,R0 


CALL 


@CDSTRT<RO) 


Finished 




MOV 


<SP)+,R1 


MOV 


(SP)+, RO 


RETURN 





4 
f 

i 



TSTIOX 
NEDCHR 
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Get next char for device driver 



. SBTTL NEDCHR 



Get next char for device driver 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



NEDCHR is called from a terminal device driver to get the 
next char that is to be sent to the terminal. 

Inputs: 
R4 = Physical line number for which a character is being gotten. 

Outputs: 
C-flag cleared ==> Another character is available. 
C-flag set ==> No more characters available. 
RO = Character to send if C-flag cleared. 



001346 010146 
001350 010246 
001352 010446 



001354 032764 OOOOOOG OOOOOOG 

001362 001406 

001364 042764 OOOOOOG OOOOOOG 

001372 112700 OOOOOOG 

001376 000556 



NEDCHR: MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, ~(BP) 
R4, -<SP) 



See if we need to send an XOFF (ctrl-S) 

BIT #*SXOFF. LSW10(R4)> Do we need to send an XOFF? 

BEQ 12* i Br if not 

BIC #*SXOFF, LSW10<R4); Clear flag saying XOFF needed 

MOVE #CTRLS, RO i Get ctrl-S character 

BR 15* jGo send it 

See if we need to send an XON (ctrl-Q) 



001400 032764 OOOOOOG OOOOOOG 12*: BIT 

001406 001406 BEQ 

001410 042764 OOOOOOG OOOOOOG BIC 

001416 112700 OOOOOOG MOVB 

001422 000544 BR 



#*SXON, LSW10<R4); Do we need to send an XON? 
13* i Br if not 

#*SX0N,LSW10<R4)i Clear flag saying XON needed 
#CTRLQ, RO ; Get ctrl-Q character 
15* ; Go send it 



001424 116401 OOOOOOG 



001430 032761 OOOOOOG OOOOOOG 

001436 001540 

001440 032764 OOOOOOG OOOOOOG 

001446 001134 



001450 
001454 
001456 
001462 
001466 
001470 
001472 
001500 
001504 



016402 
001414 
016200 
005262 
112000 
001110 
016264 
004767 
000761 



OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 
000246 



Get virtual line number to Rl 

13*: MOVB LNMAP<R4),R1 i Get virtual line number for this phys line 

Determine if output to line is suspended due to Control-S character 

BIT #*INIT, LSWCRl ) i Has line been initialized yet? 

BEQ 8* } Bt if line is not initialized 

BIT #*CTRLS, LSW3<R4); Is output to line suspended? 

BNE 8* J Br if yes 

See if the next character is coming from a message buffer 

?*: MOV LMS0BF<R4)/ R2 ; Is output coming from a message buffer? 

; Br if not 

; Get address of next character in buffer 
i Advance the character pointer 
; Get the character from the buffer 
i Br if we got a character to send 
LMSGBF(R4) i Remove this element from list for job 
; Free the message buffer 
i See if there is another to send 

See if line is cross connected to a CL line 



MOV 


LMS0BF<R4),R2 


BEQ 


3* 


MOV 


SB*PNT<R2),R0 


INC 


SB*PNT<R2) 


MOVB 


<R0)+, RO 


BNE 


5* 


MOV 


SB*LNK<R2),LM 


CALL 


SNDFRE 


BR 


2* 



TSTIDX - 
NfcDCHR - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 

So. 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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- Get next char for device drivei- 
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001506 
001512 
001514 
001520 
001524 
001526 



001530 
001534 
001540 



001542 
001550 
001552 
001556 
001560 
001566 
001570 
001574 
001576 
001604 
001606 
001612 
001614 
001616 
001624 
001626 
001634 



001640 
001644 
001660 
001662 
001670 
001674 
001700 
001702 
001706 



001 
001 
001 
001 
001 
001 
001 



712 
716 
720 



726 
730 



016402 
002406 
016201 
004767 
103072 
000504 



016100 
166100 
001477 



026127 
101433 
005761 
001004 
026127 
1 1 424 
020027 
103410 
026127 
001015 
020027 
003012 
000404 
026127 
101005 
052761 
005237 



005261 
020261 
103402 
016102 
010261 



016402 
001406 
012201 
001404 
120001 
001374 
000301 



OOOOOOG 

OOOOOOG 
177056 



3*: MOV LXCL<R4),R2 ils line cross connected to a CL line? 

Br if not 

Get # of line CL unit is using 
Try to get char from input silo 
Br if got a character 
No character to transmit 

Determine how many characters are in terminal output buffer for line 



MOV 


LXCL<R4),R2 


BLT 


14* 


MOV 


CL*LIX(R2),R1 


CALL 


SILFET 


BCC 


5* 


BR 


8$ 



OOOOOOG 
OOOOOOG 



14*: MOV L0TSIZ(R1),R0 
SUB L0TSPC<R1)>R0 
BEG 8* 



; Get size of output character buffer 

i Determine number of characters 

i Br if there are no characters in output buf 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

000005 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



If we are about to run out of characters, see if uie need 
to give the job an execution priority boost 

CMP LSTATE(R1),#S*0TFN ;l5 job already in a high-priority state? 

BLOS 10* i Br if yes — no need to boost priority 

TST LITIME(Rl) ; Is this an interactive job? 

BNE 11* ; Br if yes 

CMP LSTATE(R1 )> #S*OTLO ; Non-interactive high priority state? 

BLOS 10* i Br if already in high prio state 

11*: CMP RO, #5. ;Are me really about to run out of chars? 

BLO 6* J Br if yes — Definitely give boost 

CMP LSTATE(Rl), #3*0TWT ;Is job waiting for output buffer space? 

BNE 10* ;Br if not 

CMP RO. #OTRASZ i Are we down to reactivation point? 

BGT 10* iBr if not 

BR 7* iBr if yes — reactivate user 

6*: CMP LSTATE<R1 )» #S**RUN ;Is job in a run or wait state? 

BHI 10* iBr if in wait state — Don't boost 

7*: BIS #*SOTFN> LSW7<Rl)i Set flag to cause clock int to boost priority 

INC @#NEDSOT i Say we need job scheduler processing 



Send next character from normal terminal output buffer 



016102 OOOOOOG 



10*: 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



4*: 



MOV 

TTMAP 

MOVB 

UNMAP 

INC 

CMP 

BLO 

MOV 

MOV 



L0TPNT<R1), R2 

<R2)+>R0 

LOTSPC(Rl) 
R2, L0TEND<R1) 
4* 

L0TBUF<R1),R2 
R2, L0TPNT<R1) 



Get pointer to next character in buffer 

Map kernel PAR 6 to TT buffer for job 

Get next character from terminal buffer 

Remap kernel PAR 6 

Say there is one more char space in buffer 

Did we just go beyond end of buffer? 

Br if not 

Wrap around to front of buffer 

Save updated buffer pointer 



OOOOOOG 



Thpre is a character to send. 

See if we need to do any character translation. 



5*: 
16*: 



MOV 


LCXTBL(R4),R2 


BEQ 


15* 


MOV 


(R2)+. Rl 


BEQ 


15* 


CMPB 


RO, Rl 


BNE 


16* 


SWAB 


Rl 



f Is there a character translation table? 

; Br if not 

iGet entry from translation table 

iBr if hit end of table 

i Compare character with that in table 

i Br if no match 

iGet replacement char to low order 



I 
i 
f 
I 
I 

I 

« 

i 

€ 

i 
i 
i 
I 
4 
I 
I 



TSTIOX - 
NEDCHR - 

H5 
116 
117 

lis 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
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— Get next char for device driver 



001732 110100 



001734 000241 
001736 000401 



001740 000261 



001742 012604 

001744 01260.'' 

001746 012601 

001750 000207 



MOVB Rl^RO > Get replacement character 

We have a character to send in RO 



15*: OLC 
BR 



9* 



i No characters left to send 

i 

8$: SEC 

> 

•f Finished 

i 

9*: MOV <SP)+>R4 
MOV <SP)+, R2 
MOV (SP)+, Rl 
RETURN 



Signal success on return 



; Signal failure on return 



€ 
€ 
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NEDCHR — Get next char for device driver 



< 



1 
2 
3 
4 
5 
6 
7 

a 

9 
10 

11 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 

23 
24 

26 
27 



00175c 



001752 013762 OOOOOOG OOOOOOG 
001760 010237 0000000 
001764 005237 OOOOOOG 



001770 005237 OOOOOOG 



001774 000207 



SNDFRE is called to return a system message buffer to the free list. 

Inputs: 
R2 == Address of system message buffer to be freed. 
Interrupts must be disabled when this routine is called. 

. GLOBL SNMSHD, SBIiLNK, NMUMB, MBFFLG 

SNDFRE: 

Return buffer to free list. 

MOV @#SNMSHD, SB*LNK<R2); Add buffer to free list 

MOV R2, @#SNMSHD 

INC S#NMUMB > Increment # free message buffers 

Set flag saying a message buffer has been freed so clock routine 
will restart any waiting jobs. 



INC 
Finished 

RETURN 



@#MBFFLG 



> Set flag for clock routine 






TSTIOX " 
CDORTN - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
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— Clock driven output character processing 



. SDTTL CDORTN — Clock driven output character processing 

CDORTN is called on every clock tick <50/60 Hz) to do clock 
driven output character processing. 



001776 010146 

002000 005037 OOOOOOG 



002004 005737 OOOOOOC 

002010 001404 

002012 005037 OOOOOOG 

002016 004737 0000000 



CDORTN: MOV 
CLR 



R 1 , - < SP ) 
@#NEDCDO 



Do processing for CL lines 



TST 


@#NEDCLO 


BEQ 


1* 


CLR 


e#NEDCLO 


CALL 


@#CLTIMR 



i Say don't need output processing 



; Need CL output processing? 

i Br if not 

; Reset output-processing-needed flag 

;Call routine for CL lines 



Do output character processing for DHll and DHVll lines 



002022 012701 OOOOOOG 1$: MOV 

002026 032761 OOOOOOG OOOOOOG 2$: BIT 

002034 001415 BEO 

002036 026127 OOOOOOG OOOOOOG CMP 

002044 001404 BEQ 

002046 026127 OOOOOOG OOOOOOG CMP 

002054 001005 BNE 

002056 042761 OOOOOOG OOOOOOG 3*: BIC 

002064 004737 OOOOOOG CALL 

002070 162701 000002 4*: SUB 

002074 003354 BGT 



#LSTHL, Rl ; Get index to last line 

#*DHCDO» LSW10<R1 )» Is clock-driven processing needed for line? 

4* ; Br if not 

LCDTYP(Rn. #CDX*VH; Is this a DHVll line? 

3* i Br if yes 

LCDTYP<RJ ), #CDX$DH; Is this a DHll line? 

4* i Br if not 

#*DHCDO> LSW10<R1 )» Clear processing-needed flag for line 



@#DHTIMR 
#2, Rl 
2* 



002076 105037 OOOOOOG 



002102 01 260 J 
002104 000207 



Say processing is finished 

CLRB @#CDDFLG 

Finished 

MOV <SP)+. Rl 
RETURN 



iCall clock driven routine for DH 
j Get next line index number 
;Loop if more lines to check 



^ Say processing is finished 
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OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



1 
2 
3 
4 
5 

6 002106 010146 

7 002110 010446 

8 002112 005037 OOOOOOG 
9 

10 

11 

12 002116 012701 000002 

13 

14 

15 

16 002122 032761 OOOOOOG OOOOOOG 1*: 

17 002130 001440 
IS 002132 

19 002140 032761 

20 002146 001423 

21 002150 032761 

22 002156 001017 
23 
24 
25 

26 002160 052761 

27 002166 

28 002174 042761 

29 002202 010104 

30 002204 004771 

31 002210 042761 

32 002216 042761 OOOOOOG OOOOOOG 2*: 
33 
34 
35 

36 002224 

37 002232 062701 000002 3*: 

38 002236 020127 OOOOOOG 

39 002242 101727 
40 
41 
42 

43 002244 105037 OOOOOOG 
44 
45 
46 

47 002250 012604 

48 002252 012601 

49 002254 000207 

50 000001 
Errors detected: 

*** Assembler statistics 



Work file reads: 
Work file mrites: 



. SBTTL CDIRTN — Clock driven input character processing 

CDORTN is called on every clock tick (50/60 Hz) to do clock 
driven input character processing. 



CDIRTN: MOV 
MOV 
CLR 



Rl, -<SP) 
R4. -(SP) 
g#NEDCDI 



; Say don't need input processing 
Begin loop to service each line 

MOV #2. Rl i Start with line 1 

See if this routine needs input character processing 



BIT 

BEQ 

DISABL 

BIT 

BEQ 

BIT 

BNE 



#*HARD, LSW3(R1) ;Is this a real line? 
3* ; Br if not 

** Disable interrupts «* 

; Does this line need input char processing? 

Br if not 

; Are we doing processing now? 

Br if yes 



#«NDICP, LSW10<Ri) 
2* i 

#*ICPFK, LSWIO(RI) 
2* i 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 



This line does need input character processing 

BIS #*ICPFK, LSW10<R1 ); ; ; Set flag saying processing taking place 

ENABL ; #* Enable interrupts #* 

BIC #*NDICP, LSW10<R1); Say input character processing has been done 

MOV R1,R4 ; Get line index number in R4 also 

CALL @LINIR<R1> ;Call input processing routine for line 

BIC #*ICPFK, LSW]0<R1 >; Say no longer doing input processing 

BIC #*DNICP» LSW10<R1 ) J Say input processing done for clock cycle 

See if there are more lines to check 

i ** Enable interrupts «* 
/Get next line index number 
j Have we done all lines? 
i Loop if more to service 

Say clock driven input processing is finished 

CLRB e#CDIFLG » Say clock driven input processing finished 

Finished 



ADD 


#2, Rl 


CMP 


R 1 . #LSTHl 


BLOS 


1* 



MOV 
MOV 

RETURN 
. END 



(SP)+, R4 
<SP)+, Rl 



I 

€ 
I 
I 
I 

< 
C 
< 

i 

t 
< 
€ 

i 
4 
i 

i 
i 

4 

I 

i 



TSTIOX — Relocatable terminal MACRO V05. 04 Friday lS-Dec-87 11:58 Page 16-1 
CDIRTN — Clock driven input character processing 

Size of work file: 248 Words ( 1 Pages) 
Size of core pool: 17920 Words ( 70 F^ages) 
Operating system: RT-ll 

Elapsed time: 00:00:42.43 

DK: TSTIOX, LP: TSTIOX=DK: TSTIOX. MAC/C/N: SYM 
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€ 



*8BIT 




-26 


*CTRLS 




-24 


*DEAD 




-29 


*DETCH 




-24 


$DHCDD 




-26 


*DNICP 




-31 


*HARD 




-24 


$HISTP 




-30 


*ICPFK 




-29 


*IITIM 




-26 


*INIT 




-25 


*NDICP 




-23 


*PAGE 




-27 


*RBRK 




-28 


*SOTFN 




-27 


*SXOFF 




-26 


*SXON 




-25 


CDIFLG 




-28 


CDIRTN 


3- 


-17 


CDDFLS 




-23 


CDORTN 


3- 


-16 


CDSTOP 




-30 


CDSTRT 




-30 


CDSXOF 




-22 


CDSXON 




-22 


CDX*DH 




-25 


CDX*VH 




-22 


CIPFRK 


8- 


-66 


CL$LIX 




-20 


CL*OPT 




-29 


CLTIMR 


1- 


-22 


CO*SBT 


1- 


-24 


CO$BNI 


1- 


-31 


CO*BNO 


1- 


-31 


CTRLQ 


1- 


-22 


CTRLS 


1- 


-21 


DHTIHR 


1- 


-27 


FAST IN 


1- 


-30 


FORK 


1- 


-28 


FP*CDI 


1" 


-28 


FRMERR 


1- 


-25 


eOTXOF 


5- 


-52 


GOTXOIM 


5- 


-63 


INJNT 


3- 


-10 


INITFL 


1- 


-24 


INTEN 


1- 


-28 


INTPRI 


1- 


-23 


IRINGP 


5- 


-68 


KPAR6 


1- 


-31 


LCDTYP 


1- 


-21 


LCLUNT 


1- 


-21 


LCXTBL 


1- 


-20 


LHIRBA 


1- 


-24 


LHIRBB 


1- 


-23 


LHIRBC 


1- 


-24 


LHIRBE 


l- 


-23 



5-313 






10~.(4 


11-13 


12-21 


12-21 






12- J 6 






15-19 


1 5-25 




5-78 


5-84 


16-32 


9-14 


12-23 


16-16 


7-3r> 


7-41 




5-80 


9-19 


9-24 


5-l£» 






13-40 






5-72 


5-74 


9-17 


5-i>0 


5-61 




5-22 






13-90 






13-20 


13-22 




13~2B 


13-30 




8-52 


8-54<s- 


9-40* 


16-6# 






15-32«- 






1 5-6# 






10-19 






11-18 


12-30 




6-38 






7-43 






1 5-23 






15-21 






9~5# 






13-61 






5-30 


5-32 


6-34 


15-14 






5-32 






5-30 






6-34 






5" 57 


13-31 




5-46 


13-23 




1 5-26 






5-76 






8-64 






8-65 






5-20 






10 -9# 






1 1 -8# 






4-6# 






5-02 






8~!:>9 






8-27 


8-3 H^ 


8-40* 


6-10# 






1 3-96 


13-961^ 


1 3-98* 


6-37 


7-42 


10-18 


5-28 


6-32 




7-47 


13-108 




7-18 


7-37 




6-21 


7-28 




6-27 


7-39 




6-19 


7-26 





13-42 



9-29 16-21 16-26 16-31 



9-26 16-19 16-28 



9-25 9-33 16-27 16-36 

11-17 12-29 15-21 15-23 
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LHIRBe 


1-24 


7-24 


7-29K- 














LHIRBP 


1-23 


6-17 


6-22*- 














LHIRBS 


1-23 


6-15 


6-2311- 


6-27 


6-30 


7-18 


7-30* 


7-38 




LINIR 


1-21 


9-SS 


16-30 














LINNUM 


1-32 


4-15 


4-20Jf 














LITIME 


1-26 


13-77 
















LMSGBF 


1-22 


13-47 


13-53+r 














LNMAP 


1-23 


1 3-36 
















LNPRIM 


1-30 


12-12 
















LOTBUF 


1-21 


13-102 
















LOTEND 


1-27 


13-100 
















LOTPNT 


1-22 


13-95 


13-103» 














LOTS I Z 


1-21 


13-68 
















LOTSPC 


1-31 


13-69 


13-99fi- 














LSTATE 


1-30 


13-75 


13-79 


1 3-83 


13-SS 










LSTHL 


1-27 


9-35 


15-18 


16-38 












LSW 


1-25 


12-16 


13-40 














LSWIO 


1-30 


5-22«- 


5-72 


5-74* 


5-7S 


5-BO 


5-04* 


7-35 


7-41* 




9-26# 


9-29*- 


13-20 


13-22* 


1 3-28 


13-30* 


15-19 


15-25* 


16-19 




16-31« 


1 6-32* 
















LSW2 


1-29 


5-35 


5-50 


5 61 












LSW3 


1-26 


9-14 


10-14* 


11-13* 


12-21 


12-23 


13-42 


16-16 




LSW5 


1-26 


5-16^^ 
















LSW7 


1-25 


1 3-90«- 
















LTTPAR 


1-31 


13-96 
















LXCL 


1-22 


13-59 
















MAPHLD 


3-22# 


13~96w 


1 3-98 














MBFFLQ 


1-28 


14-10 


14-23* 














MUXNUM 


1-32 


4-35 


4-36 K- 














MXLNT 


1-32 


4-43 
















MXRBUF 


1-32 


4-30 
















NEDCDI 


1-21 


5-7 5«' 


16-8* 














NEDCDO 


1-21 


15-7!^^ 
















NEDCHR 


3-15 


13-14# 
















NEDCLO 


1-29 


15-11 


15-13* 














NEDSOT 


1-29 


13-9HJ 
















NMUMB 


1-27 


14-10 


14-18* 














OTRASZ 


1-23 


13-85 
















OVRHC 


1-20 


















PSW 


1-31 


9-16* 


9-25* 


9-33* 


16-18* 


16-27* 


16-36* 






RBR 


1-32 


4-25 
















RCVDON 


1-32 


4-23 
















RDINT 


1-32 


4-22 


4-26 


4-29 












RSR 


1-32 


4-22*- 


4-23 


4-26* 


4-29* 










S**RUN 


1-26 


13-88 
















S$OTFN 


1-28 


13-75 
















S*OTLO 


1-27 


13-79 
















SfOTWT 


1-25 


13-83 
















SB*LNK 
SB*PNT 


1-27 
1-29 


13-53 
13-49 


14-10 

13-50* 


14-16* 












SILFET 


3-12 


7~13# 


13-62 














SNDFRE 
SNMSHD 


3-18 
1-29 


13-54 
14-10 


14~12# 
14-16 


14-17* 












TRNSTR 


3-14 


12-10# 
















TSTIOX 


1-16 


3~6# 


3-10 


3-11 


3-12 


3-13 


3-14 


3-15 


3-16 


TTIFRK 


3~24# 


5-B5*:- 


8-49 


8-51* 













9-17 9-19 9-24# 
16-21 16-26# 16-28* 
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TT.T.NPT 3-11 4-27 4-46 5-1 1# 
TTRSAV 3-13 4-10 8-1 9# 
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Cross reference table <CREF V05. 04) 

DISABL 2~6# 9- .16 16-18 

ENABL 2~12# 9-25 9-33 16-27 16-36 

OCALL 2-18# 

TTMAP 2-48# 1 3-96 

TTMAPX 2-39# 

UNMAP 2-53# 13-9B 

UNMAPX 2-4 5# 



